home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_12_1986_Transactor_Publishing.d64 / func wedge.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  70 lines
  1. 100 rem basic loader for function wedge
  2. 110 rem by frank e. digioia  11/14/85
  3. 120 rem sys 49152 to activate
  4. 130 :
  5. 140 for adr=49152 to 49634:read ml
  6. 150 cs=cs+ml:poke adr,ml:next
  7. 160 ifcs<>59800thenprint"error in data"
  8. 170 :
  9. 180 data169, 11,141, 10,  3,169,192,141
  10. 190 data 11,  3, 96,169,  0,133, 13, 32
  11. 200 data115,  0,201, 36,240, 22,201, 37
  12. 210 data240, 21,201, 64,240, 20,201, 35
  13. 220 data240, 19,201, 33,240, 18, 32,121
  14. 230 data  0, 76,141,174, 76, 29,193, 76
  15. 240 data 32,193, 76,213,192, 76, 13,193
  16. 250 data169,  0,141,132,192,170,168,200
  17. 260 data189,136,192,240, 64,232,209,122
  18. 270 data208,  2,240,243,202,189,136,192
  19. 280 data 16,  8, 41,127,209,122,240, 19
  20. 290 data208,  8,232,189,136,192,240, 37
  21. 300 data 16,248,232,238,132,192,160,  0
  22. 310 data 76, 63,192,200,152, 24,101,122
  23. 320 data133,122,144,  2,230,123,173,132
  24. 330 data192, 10,170,189,153,192, 72,189
  25. 340 data152,192, 72, 96,  0, 76,  8,175
  26. 350 data 77, 79,196, 70, 82, 65,195, 68
  27. 360 data 73,214, 68, 83, 84, 65,212,  0
  28. 370 data142,193,145,193,139,193,159,192
  29. 380 data162,  8,134,186,138, 32,180,255
  30. 390 data169,111,133,185, 32,150,255,162
  31. 400 data  0, 32,165,255,157, 60,  3,232
  32. 410 data201, 13,208,245, 32,171,255,202
  33. 420 data138,141, 12,193, 32,125,180,172
  34. 430 data 12,193,185, 60,  3,145, 98,136
  35. 440 data 16,248, 76,202,180, 32,115,  0
  36. 450 data 32,242,192,224, 25,144,  3, 76
  37. 460 data 72,178,192, 40,176,249, 24, 32
  38. 470 data240,255,169,  0, 32,125,180, 76
  39. 480 data202,180, 32,250,174, 32,158,183
  40. 490 data142, 12,193, 32,253,174, 32,158
  41. 500 data183,138, 72, 32,247,174,104,168
  42. 510 data174, 12,193, 96,  0, 32,115,  0
  43. 520 data 32,242,192,134, 99,132, 98,162
  44. 530 data144, 56, 76, 73,188,169,  0, 44
  45. 540 data169,  1,141,139,193, 32, 62,193
  46. 550 data 32,115,  0,240, 14, 32, 72,193
  47. 560 data 32,114,193, 32,126,189, 76, 40
  48. 570 data193,104,104, 76,121,  0,169,  0
  49. 580 data162,  5,149, 97,202, 16,251, 96
  50. 590 data144, 16,174,139,193,208, 24,201
  51. 600 data 65,144,230,201, 71,176, 16, 56
  52. 610 data233,  7,174,139,193,240,  4,201
  53. 620 data 50,176, 12, 56,233, 48, 96,201
  54. 630 data 65,144,206,201, 91,176,202, 76
  55. 640 data 72,178,166, 97,240, 15, 72,174
  56. 650 data139,193,189,137,193, 24,101, 97
  57. 660 data176,  4,133, 97,104, 96, 76,126
  58. 670 data185,  4,  1,  0,169,  0, 44,169
  59. 680 data  1, 44,169,255,141,139,193, 32
  60. 690 data250,174, 32,138,173,162,230,160
  61. 700 data193, 32,212,187, 32,253,174, 32
  62. 710 data138,173, 32,247,174,162,225,160
  63. 720 data193, 32,212,187,169,230,160,193
  64. 730 data 32, 15,187, 32, 12,188, 32,204
  65. 740 data188,173,139,193,240, 23,165, 97
  66. 750 data 32, 83,184,173,139,193, 48, 13
  67. 760 data169,225,160,193, 32, 40,186, 32
  68. 770 data 73,184, 32,204,188, 32, 27,188
  69. 780 data 96,  0,  0
  70.